home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINWORDS / WINE02BX.ZIP / LISP / MODES / NROFF-MO.ELC < prev    next >
Text File  |  1993-03-28  |  5KB  |  50 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:32:16 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/nroff-mo.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar nroff-mode-abbrev-table nil "\
  14. Abbrev table used while in nroff mode.")
  15. (defvar nroff-mode-map nil "\
  16. Major mode keymap for nroff-mode buffers")
  17. (byte-code "¼º┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┬╔╩#ê┬╦╠#ê┬═╬#ê┴ç" [nroff-mode-map make-sparse-keymap define-key "    " tab-to-tab-stop "s" center-line "?" count-text-lines "\n" electric-nroff-newline "n" forward-text-line "p" backward-text-line] 4)
  18. (fset 'nroff-mode #[nil "└ ê┴\n!ê├┼╟!ê    \n╦╠!ê╦═!ê╬╦╧!ê╨P╦╤!ê╨P╦╥!ê╙╦╘!ê╒╦╓!ê╫╦╪!ê┘┌█▄\"ç" [kill-all-local-variables use-local-map nroff-mode-map "Nroff" mode-name nroff-mode major-mode set-syntax-table text-mode-syntax-table nroff-mode-abbrev-table local-abbrev-table make-local-variable nroff-electric-mode page-delimiter "^\\.\\(bp\\|SK\\|OP\\)" paragraph-start "^[.']\\|" paragraph-separate comment-start "\\\" " comment-start-skip "\\\\\"[     ]*" comment-column 24 comment-indent-hook nroff-comment-indent run-hooks text-mode-hook nroff-mode-hook] 3 "\
  19. Major mode for editing text intended for nroff to format.
  20. \\{nroff-mode-map}
  21. Turning on Nroff mode runs text-mode-hook, then nroff-mode-hook.
  22. Also, try nroff-electric-mode, for automatically inserting
  23. closing requests for requests that are used in matched pairs." nil])
  24. (fset 'nroff-comment-indent #[nil "`┴Ä┬├xên½ëT─cê┼¬ÿè╞┼!ê╟╚!)½â┼¬è    i╩\\╦Ñ╦_]*ç" [pt ((goto-char pt)) "     " nil 46 1 backward-char looking-at "^[.']" comment-column 9 8] 3 "\
  25. Compute indent for an nroff/troff comment.
  26. Puts a full-stop before comments on a line by themselves."])
  27. (fset 'count-text-lines #[(start end &optional print) "½ê┴┬├ \"\"çèî }êebê╞ ╟╞ !Z*ç" [print message "Region has %d text lines" count-text-lines start end buffer-size forward-text-line] 5 "\
  28. Count lines in region, except for nroff request lines.
  29. All lines not starting with a period are counted up.
  30. Interactively, print result in echo area.
  31. Noninteractively, return number of non-request lines from START to END." "r\np"])
  32. (fset 'forward-text-line #[(&optional cnt) "¼é┴┬V½Üm¼ù┴yêm¼è├─!½à┴yê¬s┴Zë¬b┬W½Üo¼ù┼yêo¼è├─!½à┼yê¬s┴\\ë¬bç" [cnt 1 0 looking-at "[.']." -1] 3 "\
  33. Go forward one nroff text line, skipping lines of nroff requests.
  34. An argument is a repeat count; if negative, move backward." "p"])
  35. (fset 'backward-text-line #[(&optional cnt) "└    [!ç" [forward-text-line cnt] 2 "\
  36. Go backward one nroff text line, skipping lines of nroff requests.
  37. An argument is a repeat count; negative means move forward." "p"])
  38. (byte-code "└┬ç" [((".(b" . ".)b") (".(l" . ".)l") (".(q" . ".)q") (".(c" . ".)c") (".(x" . ".)x") (".(z" . ".)z") (".(d" . ".)d") (".(f" . ".)f") (".LG" . ".NL") (".SM" . ".NL") (".LD" . ".DE") (".CD" . ".DE") (".BD" . ".DE") (".DS" . ".DE") (".DF" . ".DE") (".FS" . ".FE") (".KS" . ".KE") (".KF" . ".KE") (".LB" . ".LE") (".AL" . ".LE") (".BL" . ".LE") (".DL" . ".LE") (".ML" . ".LE") (".RL" . ".LE") (".VL" . ".LE") (".RS" . ".RE") (".TS" . ".TE") (".EQ" . ".EN") (".PS" . ".PE") (".BS" . ".BE") (".G1" . ".G2") (".na" . ".ad b") (".nf" . ".fi") (".de" . "..")) nroff-brace-table nil] 1)
  39. (fset 'electric-nroff-newline #[(arg) "è└yê    ?¡ô\n¡É`d├ZX¡ë─``├\\{\"A)╞╟!?ë    ¼ç╩╦    !!¬æè╠    ▒ê½â═cê)╬u*ç" [0 arg nroff-electric-mode 3 assoc nroff-brace-table looking-at "[     ]*$" needs-nl completion newline prefix-numeric-value "\n\n" "\n" 1] 5 "\
  40. Insert newline for nroff mode; special if electric-nroff mode.
  41. In electric-nroff-mode, if ending a line containing an nroff opening request,
  42. automatically inserts the matching closing request after point." "P"])
  43. (fset 'electric-nroff-mode #[(&optional arg) "┴=¼ä┬├!ê─₧¼å╞╟C\"¼ä ?¬å╔!╩Vëç" [major-mode nroff-mode error "Must be in nroff mode" nroff-electric-mode minor-mode-alist append (nroff-electric-mode " Electric") arg prefix-numeric-value 0] 3 "\
  44. Toggle nroff-electric-newline minor mode
  45. Nroff-electric-newline forces emacs to check for an nroff
  46. request at the beginning of the line, and insert the
  47. matching closing request if necessary.  
  48. This command toggles that mode (off->on, on->off), 
  49. with an argument, turns it on iff arg is positive, otherwise off." "P"])
  50.